% V20210224 - 9.3.1 GW_FLIPSWITCH_CHANGED

INCLUDE "GW.bas"

% Create page.
p = GW_NEW_PAGE()

% Prepare title bar string.
Title$ = GW_ADD_BAR_TITLE$("Flipswitch Example")

% Add title to page.
GW_ADD_TITLEBAR(p,Title$)

% Add descriptive text.
GW_ADD_TEXT(p, "This is an example of the FLIPSWITCH control:")

% Add first flipswitch.
switch1 = GW_ADD_FLIPSWITCH(p, "First switch:", "On","Off")

% Add second flipswitch.
switch2 = GW_ADD_FLIPSWITCH(p, "Second switch:", "Yes",">No")

% Add a textbox for feedback.
TB = GW_ADD_TEXTBOX(p, "")

% Show the page.
GW_RENDER(p)

% Loop
DO
 % Wait for user action.
 r$ = GW_WAIT_ACTION$()

 t$=""
 GW_MODIFY(TB, "text", t$)

 IF IS_IN("flipswitch", r$)=1 THEN ~
  t$+= r$

 IF GW_FLIPSWITCH_CHANGED(switch1, "On") THEN ~
  t$ += "\nSwitch 1 was turned on."

 IF GW_FLIPSWITCH_CHANGED(switch1, "Off") THEN ~
  t$ += "\nSwitch 1 was turned off."

 IF GW_FLIPSWITCH_CHANGED(switch2, "Yes") THEN ~
  t$ += "\nSwitch 2 = Yes."

 IF GW_FLIPSWITCH_CHANGED(switch2, "No") THEN ~
  t$ += "\nSwitch 2 = No."

 GW_MODIFY(TB, "text", t$)

 % End when BACK key is pressed.
UNTIL r$="BACK"

END "End of Flipswitch example."